home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 2 #7
/
utv2n7s2.d64
/
neutron man
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
4KB
|
91 lines
1 rem neutron.boot*jc hilty*7/88
2 :
3 : rem the following line disables uptime (everything returned to system)
4 :
5 sys65418:sys65412:sys65409:poke55,0:poke56,160:clr:sys58451
6 :
7 : rem save the fastboot flag
8 poke12278,peek(1023):remifpeek(12278)=251thensys52480
9 :
12 poke53281,0:poke53280,0:s=54272
14 poke147,0:sys57812"neutron.font",8,1:sys62631
15 poke53272,31:print"[155]"tab(17)"uptime"
16 printtab(7)"the commodore disk monthly":printtab(16)"presents":print
18 printtab(6)"a james c. hilty production":printtab(18)"of an"
20 printtab(3)"interactive epic arcade comic book"
21 print:printtab(4)"published by softdisk publishing"
23 sys57812"writer",8,1:sys62631
25 sys57812"speech.pic",8,1:sys62631
26 print"[147]":poke53265,59:poke53272,120:poke56576,peek(56576)and254
30 sys16384,2,24576,14336,23552
31 co=1:ro=24:a$="press fire":gosub150
32 co=18:ro=2:a$="hi, everyone!":gosub150
34 co=16:ro=3:a$="i'm neutron-man!":gosub150
35 co=15:ro=4:a$="i hope you are enjoying":gosub150
36 co=15:ro=5:a$="this month's uptime!":gosub150
37 co=16:ro=6:a$="everything is quiet and":gosub150
38 co=17:ro=7:a$="peaceful right now,":gosub150
40 wait56320,16,16:gosub200
42 co=18:ro=2:a$="but a short ":gosub150
44 co=16:ro=3:a$="while back the ":gosub150
45 co=15:ro=4:a$="earth was in great ":gosub150
46 co=15:ro=5:a$="danger from an attack ":gosub150
47 co=16:ro=6:a$="from outer space!! yes,":gosub150
48 co=17:ro=7:a$="i remember it well.":gosub150
50 wait56320,16,16:gosub200
52 co=18:ro=2:a$="an experiment":gosub150
54 co=16:ro=3:a$="involving rocket":gosub150
55 co=15:ro=4:a$="packs which would ":gosub150
56 co=15:ro=5:a$="enable a man to fly ":gosub150
57 co=16:ro=6:a$="was well under way. the":gosub150
58 co=17:ro=7:a$="project also dealt ":gosub150
60 wait56320,16,16:gosub200
62 co=18:ro=2:a$="with a laser ":gosub150
64 co=16:ro=3:a$="that could be ":gosub150
65 co=15:ro=4:a$="fired from a head ":gosub150
66 co=15:ro=5:a$="band. when the attack ":gosub150
67 co=16:ro=6:a$="from space began, i was":gosub150
68 co=17:ro=7:a$="chosen to defend ":gosub150
70 wait56320,16,16:gosub200
72 co=18:ro=2:a$="earth using ":gosub150
74 co=16:ro=3:a$="this new equip- ":gosub150
75 co=15:ro=4:a$="ment. thus began my ":gosub150
76 co=15:ro=5:a$="saga as neutron-man!! ":gosub150
77 co=16:ro=6:a$="using a joystick in ":gosub150
78 co=17:ro=7:a$="port 2, you will ":gosub150
80 wait56320,16,16:gosub200
82 co=18:ro=2:a$="guide me as ":gosub150
84 co=16:ro=3:a$="we relive my ":gosub150
85 co=15:ro=4:a$="greatest adventure! ":gosub150
86 co=15:ro=5:a$="we will circle the ":gosub150
87 co=16:ro=6:a$="statue of liberty, ":gosub150
88 co=17:ro=7:a$="fly into outer ":gosub150
90 wait56320,16,16:gosub200
92 co=18:ro=2:a$="space, and ":gosub150
94 co=16:ro=3:a$="finally fight ":gosub150
95 co=15:ro=4:a$="the climatic battle in ":gosub150
96 co=15:ro=5:a$="new york harbor! ":gosub150
97 co=16:ro=6:a$="please leave the disk ":gosub150
98 co=17:ro=7:a$="in the drive as ":gosub150
100 wait56320,16,16:gosub200
102 co=18:ro=2:a$="different ":gosub150
104 co=16:ro=3:a$="files will be ":gosub150
105 co=15:ro=4:a$="loaded into the game. ":gosub150
106 co=15:ro=5:a$="good luck in your ":gosub150
107 co=16:ro=6:a$="defense of earth, ":gosub150
108 co=17:ro=7:a$="neutron-man!! ":gosub150
110 wait56320,16,16
112 poke53265,27:poke53272,31:poke56576,peek(56576)or1
115 print"[147][154]can a man really fly....[144]"
116 print"[144]load"chr$(34)"neutron.intro"chr$(34)",8";
118 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13
119 new
150 sys16439,1,co,ro,a$:return
200 co=18:ro=2:a$=" ":gosub150
202 co=16:ro=3:a$=" ":gosub150
203 co=15:ro=4:a$=" ":gosub150
204 co=15:ro=5:a$=" ":gosub150
205 co=16:ro=6:a$=" ":gosub150
206 co=17:ro=7:a$=" ":gosub150
208 return